home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / DECTOHEX.MOD < prev    next >
Text File  |  1987-04-23  |  2KB  |  39 lines
  1. (*----------------------------------------------------------------------*)
  2. (*         Dec_To_Hex --- Convert decimal number to hex string          *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. FUNCTION Dec_To_Hex( Integr : INTEGER ) : AnyStr;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Function:   Dec_To_Hex                                           *)
  10. (*                                                                      *)
  11. (*     Purpose:    Convert decimal integer to hex string                *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        HexString := Dec_To_Hex( Integr : INTEGER ) : AnyStr;         *)
  16. (*                                                                      *)
  17. (*           Integr     --- decimal integer to convert to hex           *)
  18. (*           HexString  --- resultant hex string                        *)
  19. (*                                                                      *)
  20. (*----------------------------------------------------------------------*)
  21.  
  22. VAR
  23.    L : INTEGER;
  24.    H : INTEGER;
  25.  
  26. CONST
  27.    Digits : ARRAY[0..15] OF CHAR = ('0','1','2','3','4','5','6','7','8','9',
  28.                                     'A','B','C','D','E','F');
  29.  
  30. BEGIN (* Dec_To_Hex *)
  31.  
  32.    L          := LO( Integr );
  33.    H          := HI( Integr );
  34.  
  35.    Dec_To_Hex := Digits[ H SHR 4 ] + Digits[ H AND $F ] +
  36.                  Digits[ L SHR 4 ] + Digits[ L AND $F ];
  37.  
  38. END   (* Dec_To_Hex *);
  39.